inherited frmAgenda: TfrmAgenda
  Left = 103
  Top = 108
  BorderIcons = [biSystemMenu]
  Caption = 'Agenda'
  ClientHeight = 539
  ClientWidth = 792
  OldCreateOrder = True
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited GB: TGroupBox
    Width = 792
    Caption = ''
    object EdtTipo_Ent: TRadioGroup
      Left = 13
      Top = 13
      Width = 343
      Height = 36
      Caption = 'Tipo de Entidade'
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Clientes'
        'Fornecedores'
        'Ambos')
      TabOrder = 0
      OnClick = EdtTipo_EntClick
    end
    object Edtativo: TRadioGroup
      Left = 361
      Top = 13
      Width = 251
      Height = 36
      Caption = 'Entidades'
      Columns = 3
      ItemIndex = 2
      Items.Strings = (
        'Ativos'
        'Inativos'
        'Todos')
      TabOrder = 1
      OnClick = EdtativoClick
    end
    object EdtInc_Bloq: TRadioGroup
      Left = 617
      Top = 13
      Width = 162
      Height = 36
      Caption = 'Inclui Bloqueados'
      Columns = 2
      ItemIndex = 1
      Items.Strings = (
        'Sim'
        'N'#227'o')
      TabOrder = 2
      OnClick = EdtInc_BloqClick
    end
  end
  inherited Panel1: TPanel
    Top = 491
    Width = 792
    inherited BtnFechar: TBitBtn
      Left = 337
    end
    inherited BtnFechar1: TFlatButton
      Left = 323
    end
  end
  inherited Panel2: TPanel
    Width = 792
    Height = 430
    object TabControl1: TTabControl
      Left = 1
      Top = 1
      Width = 790
      Height = 241
      Align = alClient
      TabOrder = 0
      TabPosition = tpBottom
      Tabs.Strings = (
        'A'
        'B'
        'C'
        'D'
        'E'
        'F'
        'G'
        'H'
        'I'
        'J'
        'K'
        'L'
        'M'
        'N'
        'O'
        'P'
        'Q'
        'R'
        'S'
        'T'
        'U'
        'V'
        'X'
        'W'
        'Y'
        'Z')
      TabIndex = 0
      TabWidth = 20
      OnChange = TabControl1Change
      object dbgrdEntidade: TDBGrid
        Left = 4
        Top = 29
        Width = 782
        Height = 189
        TabStop = False
        Align = alClient
        DataSource = dtsEntidade
        FixedColor = 14737632
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = [fsBold]
        OnCellClick = dbgrdEntidadeCellClick
        OnDrawColumnCell = dbgrdEntidadeDrawColumnCell
        OnKeyPress = dbgrdEntidadeKeyPress
        OnTitleClick = dbgrdEntidadeTitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ENT_CODIGO'
            Title.Caption = 'C'#243'digo'
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_CNPJ'
            Title.Caption = 'CNPJ'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_CPF'
            Title.Caption = 'CPF'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_NOME'
            Title.Caption = 'Nome'
            Width = 259
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_FANTASIA'
            Title.Caption = 'Fantasia'
            Width = 193
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_EMAIL'
            Title.Caption = 'Email'
            Width = 195
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_HOMEPAGE'
            Title.Caption = 'HomePage'
            Width = 129
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_NASC'
            Title.Caption = 'Nascimento'
            Width = 92
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ENT_DATACAD'
            Title.Caption = 'Data Cadastro'
            Width = 86
            Visible = True
          end>
      end
      object Panel3: TPanel
        Left = 4
        Top = 4
        Width = 782
        Height = 25
        Align = alTop
        BevelOuter = bvNone
        Color = 14081504
        TabOrder = 0
        object edtLoc: TEdit
          Left = 0
          Top = 0
          Width = 357
          Height = 22
          BevelKind = bkFlat
          BorderStyle = bsNone
          CharCase = ecUpperCase
          TabOrder = 0
          OnChange = edtLocChange
        end
      end
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 242
      Width = 790
      Height = 100
      TabStop = False
      Align = alBottom
      DataSource = dtsEndereco
      FixedColor = 14737632
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Expanded = False
          FieldName = 'TipoEndereco'
          Title.Caption = 'Tipo de Endere'#231'o'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DDD'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Fone'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Fax'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Cidade'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Endereco'
          Title.Caption = 'Endere'#231'o'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Bairro'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CEP'
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 1
      Top = 342
      Width = 790
      Height = 87
      TabStop = False
      Align = alBottom
      DataSource = DSContato
      FixedColor = 14737632
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      Columns = <
        item
          Expanded = False
          FieldName = 'CONT_NOME'
          Title.Caption = 'Nome'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONT_DEPARTAMENTO'
          Title.Caption = 'Depto'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONT_RAMAL'
          Title.Caption = 'Ramal'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONT_FONE'
          Title.Caption = 'Fone'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONT_CARGO'
          Title.Caption = 'Cargo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONT_NASC'
          Title.Caption = 'Nasc.'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CONT_EMAIL'
          Title.Caption = 'Email'
          Width = 148
          Visible = True
        end>
    end
  end
  object dspEntidade: TDataSetProvider
    DataSet = qryEntidade
    Left = 169
    Top = 198
  end
  object CDSEntidade: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspEntidade'
    Left = 201
    Top = 198
    object CDSEntidadeENT_CODIGO: TStringField
      FieldName = 'ENT_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CODIGO'
      Size = 5
    end
    object CDSEntidadeGRUPO_CODIGO: TStringField
      FieldName = 'GRUPO_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.GRUPO_CODIGO'
      Size = 4
    end
    object CDSEntidadeSUP_CODIGO: TStringField
      FieldName = 'SUP_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.SUP_CODIGO'
      Size = 3
    end
    object CDSEntidadeENT_CNPJ: TStringField
      FieldName = 'ENT_CNPJ'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CNPJ'
      Size = 18
    end
    object CDSEntidadeREGIAO_CODIGO: TStringField
      FieldName = 'REGIAO_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.REGIAO_CODIGO'
      Size = 3
    end
    object CDSEntidadeREP_CODIGO: TStringField
      FieldName = 'REP_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.REP_CODIGO'
      Size = 3
    end
    object CDSEntidadeLINHA_CODIGO: TStringField
      FieldName = 'LINHA_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.LINHA_CODIGO'
      Size = 3
    end
    object CDSEntidadeLOCAL_CODIGO: TStringField
      FieldName = 'LOCAL_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.LOCAL_CODIGO'
      Size = 3
    end
    object CDSEntidadeSUBL_CODIGO: TStringField
      FieldName = 'SUBL_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.SUBL_CODIGO'
      Size = 3
    end
    object CDSEntidadeRAMO_CODIGO: TStringField
      FieldName = 'RAMO_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.RAMO_CODIGO'
      Size = 3
    end
    object CDSEntidadeENT_NOME: TStringField
      FieldName = 'ENT_NOME'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_NOME'
      Size = 40
    end
    object CDSEntidadeENT_FANTASIA: TStringField
      FieldName = 'ENT_FANTASIA'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_FANTASIA'
      Size = 25
    end
    object CDSEntidadeENT_INSCEST: TStringField
      FieldName = 'ENT_INSCEST'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_INSCEST'
      Size = 21
    end
    object CDSEntidadeENT_STATUS: TStringField
      FieldName = 'ENT_STATUS'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_STATUS'
      Size = 5
    end
    object CDSEntidadeENT_DATACAD: TDateTimeField
      FieldName = 'ENT_DATACAD'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_DATACAD'
    end
    object CDSEntidadeENT_DATAINA: TDateTimeField
      FieldName = 'ENT_DATAINA'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_DATAINA'
    end
    object CDSEntidadeENT_LIMITE: TFloatField
      FieldName = 'ENT_LIMITE'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_LIMITE'
    end
    object CDSEntidadeENT_EMAIL: TStringField
      FieldName = 'ENT_EMAIL'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_EMAIL'
      Size = 50
    end
    object CDSEntidadeENT_OBSERVACAO: TBlobField
      FieldName = 'ENT_OBSERVACAO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_OBSERVACAO'
      Size = 1
    end
    object CDSEntidadeENT_HOMEPAGE: TStringField
      FieldName = 'ENT_HOMEPAGE'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_HOMEPAGE'
      Size = 40
    end
    object CDSEntidadeENT_BLOQUEADO: TStringField
      FieldName = 'ENT_BLOQUEADO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_BLOQUEADO'
      Size = 1
    end
    object CDSEntidadeENT_CONTABIL: TStringField
      FieldName = 'ENT_CONTABIL'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CONTABIL'
      Size = 10
    end
    object CDSEntidadeENT_CPF: TStringField
      FieldName = 'ENT_CPF'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CPF'
      Size = 14
    end
    object CDSEntidadeENT_TIPO: TFloatField
      FieldName = 'ENT_TIPO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_TIPO'
    end
    object CDSEntidadeENT_TIPOENT: TFloatField
      FieldName = 'ENT_TIPOENT'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_TIPOENT'
    end
    object CDSEntidadeENT_HOMOLOGADO: TStringField
      FieldName = 'ENT_HOMOLOGADO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_HOMOLOGADO'
      Size = 1
    end
    object CDSEntidadeENT_RG: TStringField
      FieldName = 'ENT_RG'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_RG'
      Size = 11
    end
    object CDSEntidadeENT_NASC: TDateTimeField
      FieldName = 'ENT_NASC'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_NASC'
    end
    object CDSEntidadeENT_CONTABIL2: TStringField
      FieldName = 'ENT_CONTABIL2'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CONTABIL2'
      Size = 10
    end
    object CDSEntidadeTAB_CODIGO: TStringField
      FieldName = 'TAB_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.TAB_CODIGO'
      Size = 3
    end
  end
  object dtsEntidade: TDataSource
    DataSet = CDSEntidade
    Left = 237
    Top = 198
  end
  object CDSENDERECO: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 185
    Top = 350
    object CDSENDERECOTipoEndereco: TStringField
      FieldName = 'TipoEndereco'
      Size = 30
    end
    object CDSENDERECOFone: TStringField
      FieldName = 'Fone'
    end
    object CDSENDERECOFax: TStringField
      FieldName = 'Fax'
    end
    object CDSENDERECOCidade: TStringField
      FieldName = 'Cidade'
      Size = 30
    end
    object CDSENDERECOEndereco: TStringField
      FieldName = 'Endereco'
      Size = 30
    end
    object CDSENDERECOUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object CDSENDERECOBairro: TStringField
      FieldName = 'Bairro'
      Size = 25
    end
    object CDSENDERECOCEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object CDSENDERECODDD: TStringField
      FieldName = 'DDD'
      Size = 3
    end
  end
  object dtsEndereco: TDataSource
    DataSet = CDSENDERECO
    Left = 217
    Top = 350
  end
  object qryEntidade: TQuery
    DatabaseName = 'Industrial'
    SQL.Strings = (
      'SELECT * FROM ENTIDADE'
      'ORDER BY ENT_NOME')
    Left = 137
    Top = 198
    object qryEntidadeENT_CODIGO: TStringField
      FieldName = 'ENT_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CODIGO'
      Size = 5
    end
    object qryEntidadeGRUPO_CODIGO: TStringField
      FieldName = 'GRUPO_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.GRUPO_CODIGO'
      Size = 4
    end
    object qryEntidadeSUP_CODIGO: TStringField
      FieldName = 'SUP_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.SUP_CODIGO'
      Size = 3
    end
    object qryEntidadeENT_CNPJ: TStringField
      FieldName = 'ENT_CNPJ'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CNPJ'
      Size = 18
    end
    object qryEntidadeREGIAO_CODIGO: TStringField
      FieldName = 'REGIAO_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.REGIAO_CODIGO'
      Size = 3
    end
    object qryEntidadeREP_CODIGO: TStringField
      FieldName = 'REP_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.REP_CODIGO'
      Size = 3
    end
    object qryEntidadeLINHA_CODIGO: TStringField
      FieldName = 'LINHA_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.LINHA_CODIGO'
      Size = 3
    end
    object qryEntidadeLOCAL_CODIGO: TStringField
      FieldName = 'LOCAL_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.LOCAL_CODIGO'
      Size = 3
    end
    object qryEntidadeSUBL_CODIGO: TStringField
      FieldName = 'SUBL_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.SUBL_CODIGO'
      Size = 3
    end
    object qryEntidadeRAMO_CODIGO: TStringField
      FieldName = 'RAMO_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.RAMO_CODIGO'
      Size = 3
    end
    object qryEntidadeENT_NOME: TStringField
      FieldName = 'ENT_NOME'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_NOME'
      Size = 40
    end
    object qryEntidadeENT_FANTASIA: TStringField
      FieldName = 'ENT_FANTASIA'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_FANTASIA'
      Size = 25
    end
    object qryEntidadeENT_INSCEST: TStringField
      FieldName = 'ENT_INSCEST'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_INSCEST'
      Size = 21
    end
    object qryEntidadeENT_STATUS: TStringField
      FieldName = 'ENT_STATUS'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_STATUS'
      Size = 5
    end
    object qryEntidadeENT_DATACAD: TDateTimeField
      FieldName = 'ENT_DATACAD'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_DATACAD'
    end
    object qryEntidadeENT_DATAINA: TDateTimeField
      FieldName = 'ENT_DATAINA'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_DATAINA'
    end
    object qryEntidadeENT_LIMITE: TFloatField
      FieldName = 'ENT_LIMITE'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_LIMITE'
    end
    object qryEntidadeENT_EMAIL: TStringField
      FieldName = 'ENT_EMAIL'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_EMAIL'
      Size = 50
    end
    object qryEntidadeENT_OBSERVACAO: TBlobField
      FieldName = 'ENT_OBSERVACAO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_OBSERVACAO'
      Size = 1
    end
    object qryEntidadeENT_HOMEPAGE: TStringField
      FieldName = 'ENT_HOMEPAGE'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_HOMEPAGE'
      Size = 40
    end
    object qryEntidadeENT_BLOQUEADO: TStringField
      FieldName = 'ENT_BLOQUEADO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_BLOQUEADO'
      Size = 1
    end
    object qryEntidadeENT_CONTABIL: TStringField
      FieldName = 'ENT_CONTABIL'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CONTABIL'
      Size = 10
    end
    object qryEntidadeENT_CPF: TStringField
      FieldName = 'ENT_CPF'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CPF'
      Size = 14
    end
    object qryEntidadeENT_TIPO: TFloatField
      FieldName = 'ENT_TIPO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_TIPO'
    end
    object qryEntidadeENT_TIPOENT: TFloatField
      FieldName = 'ENT_TIPOENT'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_TIPOENT'
    end
    object qryEntidadeENT_HOMOLOGADO: TStringField
      FieldName = 'ENT_HOMOLOGADO'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_HOMOLOGADO'
      Size = 1
    end
    object qryEntidadeENT_RG: TStringField
      FieldName = 'ENT_RG'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_RG'
      Size = 11
    end
    object qryEntidadeENT_NASC: TDateTimeField
      FieldName = 'ENT_NASC'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_NASC'
    end
    object qryEntidadeENT_CONTABIL2: TStringField
      FieldName = 'ENT_CONTABIL2'
      Origin = 'INDUSTRIAL.ENTIDADE.ENT_CONTABIL2'
      Size = 10
    end
    object qryEntidadeTAB_CODIGO: TStringField
      FieldName = 'TAB_CODIGO'
      Origin = 'INDUSTRIAL.ENTIDADE.TAB_CODIGO'
      Size = 3
    end
  end
  object CDSCONTATO: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 185
    Top = 430
    object CDSCONTATOCONT_NOME: TStringField
      FieldName = 'CONT_NOME'
      Size = 40
    end
    object CDSCONTATOCONT_DEPARTAMENTO: TStringField
      FieldName = 'CONT_DEPARTAMENTO'
      Size = 25
    end
    object CDSCONTATOCONT_RAMAL: TStringField
      FieldName = 'CONT_RAMAL'
      Size = 4
    end
    object CDSCONTATOCONT_EMAIL: TStringField
      FieldName = 'CONT_EMAIL'
      Size = 50
    end
    object CDSCONTATOCONT_CARGO: TStringField
      FieldName = 'CONT_CARGO'
    end
    object CDSCONTATOCONT_NASC: TStringField
      FieldName = 'CONT_NASC'
      Size = 4
    end
    object CDSCONTATOCONT_FONE: TStringField
      FieldName = 'CONT_FONE'
      Size = 15
    end
  end
  object DSContato: TDataSource
    DataSet = CDSCONTATO
    Left = 217
    Top = 430
  end
end
